Begin Window "frmMain"	title = "Masked Window"	height = 517	width = 526	maxwidth = 526	maxheight = 517	frame = 2	visible = true	End Windowevent sub frmMain_open()	me.left = (system.screen(0).width - me.width)/2end subevent sub frmMain_paint()	dim p as picture, m as picture	dim f as file	f = getFile("")	p = f.child("screen.pict").openaspicture()	m = f.child("mask.pict").openaspicture()	me.SetShapeFromImage(p,m)end sub